<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>45</cardCount>
<cardID>21448</cardID>
<listID>5273</listID>
<cantModify><true /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>--Coconut Info, P.O. Box 75453, Honolulu, HI 96836 (808) 262-6159--authored by John F. McGrady, D.D.S.on answerButtons buttonNoglobal studentAnswerput buttonNo into studentAnswerrepeat with counter= 1 TO 4if buttonNo=counter then set hilite of bg btn counter to trueelse set hilite of bg btn counter to falseend repeatcalculateend answerButtonson calculateglobal studentAnswer,numberRight,numberWrong, sndFlagif studentAnswer=bg fld "correctAnswer" thenput numberRight +1 into numberRightif sndFlag is empty then play "applause"put"RIGHT!" into bg fld "kudo"wait 100 ticksgo next cdelseif sndFlag is empty then play "missed"put "WRONG!" into bg fld "kudo"wait 100 ticksput numberWrong +1 into numberWrongput empty into bg fld "kudo"end ifif numberRight is empty then put 0 into numberRightput numberRight &"/"& (numberRight+numberWrong) into bg fld "score"end calculateon openCardglobal numberRight, numberWrongif numberWrong is empty then put 0 into numberWrongif numberRight is empty then put 0 into numberRightrepeat with counter= 1 TO 4set hilite of bg btn counter to falseend repeatput numberRight &"/"& (numberRight+numberWrong) into bg fld "score"put empty into bg fld "kudo"end openCardon animateFldif visible of cd fld 2thenlock screenhide cd fld 2hide cd btn "hotLines"unlock screen with iris closeelselock screenshow cd fld 2show cd btn "hotLines"unlock screen with zoom openend ifend animateFldon openStackglobal menuFlag, sndFlagput empty into sndFlagif the version < 1.2 thenanswer "This stack requires HyperCard version 1.2" with "Continue" or ¬"Go Home"end ifset cursor to 4set the hilite of bg btn id 41 to falsehide msghide menubarput 1 into menuFlaghide cd fld id 13hide cd fld 1hide cd btn "hotLines"hide cd fld "hotLineField"end openStack</script>
